home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Hy-Hyperi / Hypercard invoice Folder / invoice control / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-07-01  |  1.8 KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>4001</cardID>
  8.     <listID>2062</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on NewCard
  17. global lastinv
  18. add 1 to lastinv
  19. put lastinv into bg field invno
  20. put char 5 to 18 of the abbrev date into bg field date
  21. end NewCard
  22. on OpenStack
  23.  
  24. global lastinv
  25. go to last card
  26. create menu "control"
  27. put "new invoice,information,main menu,create invoice" into menu "control" with ¬¨
  28. menumsg "newinv,doInfo,doMain,doinv"
  29. put bg field invno into lastinv
  30.  
  31. end OpenStack
  32. on newinv
  33. doMenu "New Card"
  34. end newinv
  35. on doInfo
  36. lock screen
  37. show bg field "info"
  38. unlock screen with iris open
  39. wait until the mouseclick
  40. lock screen
  41. hide bg field "info"
  42. unlock screen with iris close
  43. end doInfo
  44. on doMain
  45. go to stack "inv_application"
  46. end doMain
  47. on CloseStack
  48. reset menubar
  49. end CloseStack
  50.  
  51. on doinv
  52. global s1,s2,s3,s4,s5
  53. global q1,q2,q3,q4,q5
  54. global d1,d2,d3,d4,d5
  55. global r1,r2,r3,r4,r5
  56. global invflg
  57. global ipjnm,ipjno
  58. global icust,idate,ino
  59. global itl,iadd,icty,iprov,icode
  60. put "yes" into invflg
  61. put bg field serv1 into s1
  62. put bg field serv2 into s2
  63. put bg field serv3 into s3
  64. put bg field serv4 into s4
  65. put bg field serv5 into s5
  66. put bg field iq1 into q1
  67. put bg field iq2 into q2
  68. put bg field iq3 into q3
  69. put bg field iq4 into q4
  70. put bg field iq5 into q5
  71. put bg field projnm into ipjnm
  72. put bg field projno into ipjno
  73. put bg field custno into icust
  74. put bg field date into idate
  75. put bg field invno into ino
  76. go to stack "customers"
  77. end doinv</script>
  78.     <background id="2646" file="background_2646.xml" name="" />
  79.     <card id="4001" file="card_4001.xml" marked="false" name="" owner="2646" />
  80. </stack>
  81.